01 LBL "SDK"
02 3
03 STO 86
04 6.009
05 STO 87
06 9
07 STO 88
08 7
09 STO 89
10 73.00009
11 STO 90
12 82
13 STO 91
14 STO 00
15 E3
16 STO 92
17 SIGN
18 STO 94
19 LBL 01
20 DSE 00
21 X=0?
22 RTN
23 RCL IND 00
24 X#0?
25 GTO 01
26 VIEW 00
27 RCL 88
28 STO 82
29 LBL 02
30 RCL 00
31 RCL 94
32 -
33 STO 85
34 RCL 88
35 ST/ 85
36 MOD
37 STO 83
38 RCL 90
39 +
40 X<> 85
41 INT
42 STO 84
43 RCL 94
44 +
45 RCL 88
46 *
47 STO 93
48 LBL 03
49 RCL IND 93
50 ABS
51 RCL 82
52 X=Y?
53 GTO 05
54 RCL IND 85
55 ABS
56 X=Y?
57 GTO 05
58 DSE 93
59 CLX
60 DSE 85
61 GTO 03
62 RCL 86
63 X<> 83
64 RCL 86
65 /
66 INT
67 RCL 84
68 RCL 86
69 /
70 INT
71 RCL 88
72 *
73 +
74 RCL 89
75 +
76 RCL 86
77 *
78 STO 85
79 RCL 86
80 -
81 RCL 92
82 /
83 ST+ 85
84 LBL 04
85 RCL IND 85
86 ABS
87 RCL 82
88 X=Y?
89 GTO 05
90 DSE 85
91 GTO 04
92 RCL 87
93 ST- 85
94 DSE 83
95 GTO 04
96 X<>Y
97 CHS
98 STO IND 00
99 GTO 01
100 LBL 05
101 DSE 82
102 GTO 02
103 LBL 06
104 RCL 00
105 RCL 94
106 +
107 STO 00
108 RCL 91
109 X=Y?
110 SF 41
111 RCL IND 00
112 X>0?
113 GTO 06
114 CHS
115 ST+ IND 00
116 STO 82
117 VIEW 00
118 DSE 82
119 GTO 02
120 GTO 06
121 END